From: Jim Blandy <jimb@redhat.com>
Date: Tue, 25 May 1993 04:53:07 +0000 (+0000)
Subject: * keyboard.c (Fcurrent_input_mode): Use XFASTINT to build the last
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96002
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=3fa657a268e7934194f5960f248a5108074fd1e2;p=emacs.git

* keyboard.c (Fcurrent_input_mode): Use XFASTINT to build the last
	element of the return value, not XSETINT.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 6b267bd8e08..e9a9cd30d6b 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -4578,7 +4578,7 @@ The elements of this list correspond to the arguments of\n\
   val[0] = interrupt_input ? Qt : Qnil;
   val[1] = flow_control ? Qt : Qnil;
   val[2] = meta_key == 2 ? make_number (0) : meta_key == 1 ? Qt : Qnil;
-  XSETINT (val[3], quit_char);
+  XFASTINT (val[3], quit_char);
 
   return Flist (val, sizeof (val) / sizeof (val[0]));
 }